﻿Imports DTO
Imports BUS
Public Class frm_DangNhap

    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        Try
            Dim dndto As New DangNhapDTO
            dndto.TenDangNhap = txtTendangnhap.Text
            dndto.MatKhau = txtMatKhau.Text
            Dim dnbus As New DangNhapBUS

            Dim ds As New List(Of DangNhapDTO)
            ds = dnbus.DangNhapHeThong(dndto.TenDangNhap, dndto.MatKhau)

            If ds.Count <> 0 Then
                Dim frmchinh As New frm_Main
                frmchinh.Show()
                MessageBox.Show("Chào mừng bạn đã vào hệ thống Quản Lý Tiệc Cưới!!")
            Else
                MessageBox.Show("Tài khoản không tồn tại trong hệ thống!!!!")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        txtTendangnhap.Text = ""
        txtMatKhau.Text = ""
    End Sub
End Class